#Include "Protheus.ch"
#INCLUDE "fwbrowse.ch"
#Include "fwmbrowse.ch"
#Include "fwfilter.ch"
#Include "fwcommand.ch"
#Include "fwfilterask.ch"
#Include "fwmvcdef.ch"

User Function TESTE_MVC()

Local oBrowse

oBrowse := FWmBrowse():New()

oBrowse:SetAlias("SA1")
oBrowse:SetDescription("Cadastro de Clientes")
oBrowse:Activate()

Return NIL

Static Function MenuDef()

Local aRotina := {}

ADD OPTION aRotina Title 'Pesquisar' Action 'PesqBrw' OPERATION 1 ACCESS 0

Return aRotina